﻿<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留

if RZ_IN<>1 then
	response.write("非法请求")
	response.end
end If

Sub ArticleShow(S_KEY)

SysInclude(GetTemplateName(S_RZPARAM.Process,S_RZPARAM.Typeid))


set S_ARTICLE_SHOW = new RZContent
S_ARTICLE_SHOW.Template = S_TEMPLATE
S_ARTICLE_SHOW.ObjRZParam = S_RZPARAM
S_ARTICLE_SHOW.ShowNext = 1

Set S_CRUMB=new RZCrumb
S_CRUMB.Str=S_ARTICLE_SHOW.Title

S_TEMPLATE=S_ARTICLE_SHOW.GetResult()

If S_KEY=0 Then 
	Flush()
Else
	FlushToHTML()
End If 

End Sub
%>